home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1271 / errors.bas < prev    next >
Encoding:
BASIC Source File  |  1997-03-14  |  900 b   |  39 lines
  1. '
  2. ' SAYERROR.BAS
  3. '
  4.  Option Explicit
  5.  
  6.  DefInt A-Z
  7.  
  8. Sub SayError (F As Form, ByVal ErrorCode)
  9. Select Case ErrorCode
  10.   Case IE_BADID
  11.      F.Print "Invalid COM port name"
  12.   Case IE_OPEN
  13.      F.Print "COM port already open"
  14.   Case IE_NOPEN
  15.      F.Print "Cannot open COM port"
  16.   Case IE_MEMORY
  17.      F.Print "Unable to allocate memory"
  18.   Case IE_DEFAULT
  19.      F.Print "Error in default parameters"
  20.   Case IE_HARDWARE
  21.      F.Print "Hardware not present"
  22.   Case IE_BYTESIZE
  23.      F.Print "Unsupported byte size"
  24.   Case IE_BAUDRATE
  25.      F.Print "Unsupported baud rate"
  26.   Case WSC_NO_DATA
  27.      F.Print "No data"
  28.   Case WSC_RANGE
  29.      F.Print "Parameter out of range"
  30.   Case WSC_ABORTED
  31.      F.Print "Shareware version corrupted"
  32.   Case WSC_EXPIRED
  33.      F.Print "Shareware version expired (restart app)"
  34.   Case Else
  35.      F.Print "Error code "; ErrorCode
  36.   End Select
  37. End Sub
  38.  
  39.